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THE BEGINNERS CORNER 
PEEKS & POKES 


PEEKS and POKES look a lot more 
complex anda lot more difficult to use 
than they really are. Part af the 


the normal explanation 
(turge) and 
Manlialg gay 


problem is that 
in the manual is relatively 
uninformative. Most BASIC 
something in the order of: 
PEEK (I) Returns the decimal value of 
the specified memory or 1/0 location. 
(decimal) Examples X=PEEK (741) checks 
to see if LIST is enabled (74 indicates 
that is is enabled). 
POKE I,J Loads memory location I 
(decimal) with J (decimal). I must be 
between © and 63536 and J must be 
between © and 255. Example: 10 
POKE64256,255 leads FBOO with FF (hex). 
That certainly doesn’t sound very 
impressive, does it? However these are 
two simple concepts that have an awful 
let of handy uses. All you have to 
remember in the way of definition is 
that when you PEEK a location in memory, 
you get back whatever number ig 
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actually stored in that memory location 
and that when you POKE a memory location 
you force the machine to place a certain 
number in a given location. What do you 
mean whats it good for? There are about 
3 reasons why FEEKing and FOKEiIng is 
extremely handy for computerists. 

The first thing that makes PEEKS and 
POKEs handy is that the people who wrote 
the BASIC language had to put a lot of 
things in the RAM. For ingtance the 
number of nulls that the computer puts 
on the end of a line of print varies 
fROM O to 255. Since that number has to 
Vary, they couldn’t very well put the 
Value in a ROM someplace. Therefore, 
for this anda lot of other values, the 
RASIC language is told to look in a 
memory location where it will find 
Value tO use. In this case, 
of mulls that you 
line is stored 
in ROM machines 
65D. 

Now the reason you care about that is 
that the people who wrote the BASIC 
never figured that you might need more 
than 8 nulls at the end of line. They 
always assumed that we would use 
expensive printers or very good printer 
interfaces. Therefore, if you tried toa 
put in a number like 23 for the number 
of nulls in BASIC, (NULL 25) you would 
get back an FC error. Unfortunately, 
unforseen by the writers in BASIC, some 
of us use selectrics and some of us use 
pieces of antique equipment. We can 
often need as many as 8O nulls at the 
end of a printed line in order to get 
that slow carriage back. Also, when we 
use high speed cassette interfaces (such 
as 1200 and 600 baud), we often have to 
add a lot more nulls on the end of BASIC 
line to give the machine time to process 
the BASIC as it goes back into the 
machine. It comes down to the fact that 
we can circumvent the original intention 
of the writers of BASIC by directly 
poking a higher number into location 13. 

By bypassing the null command and 
executing "FPOKE13,80" we can make thie 
system put 8O nulls at the end of every 
printed line. In this and a lot of 
other ways we can expand beyand what the 
programmers envisioned when they set 
this system up. 


the 
the number 
put on the end of a 
in location 13 in basic 
and in location 21 in 
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RICHARD TRETHEWAY, MINN... MN 


Dear Rodgers 
With regard ta my letter that 

appeared im the last Aardvark Journal. 
Let me publicly apologize to Mr. Steven 
Gale. I did not mean to hold him up to 
ridicule. When I wrote the letter I 
wrote it to you and I did not intend it 
for direct publication, but you had no 
way of knowing that since [ didn’t say 
SO. Tt was my hope that you would 
publish a correction ar addendum and nat 
my letter, or I certainly wouldn’t have 
sent in the hardcopy stating "THE 
ARTICLE IS RBALDERDASH". I again 
apologize to Mr. Gale and to your 
readers. TIT hope you will print this in 
the next issue. 

Sincerely, 


STEVEN GALE, SHAKER HTS, OHIO 


Dear Editor, 

I almost went into shock after 
reading Mr. Trethewey*’s letter regarding 
my article on 65D V3.3. There has been a 
misunderstanding that needs ta be 
repaired. The intention of the article 
was not to take potshots at OSI. T am 
very optomistic about the DOS and I 


thought that showed in the article. A 


good review has a balance of good and 
bad features. My article was about 
three-fourths on the positive side and 
one fourth on the negative. 

TI stand behind ALL of the criticisms 
made i inmy review. When indirect files 
are mot used, “CTRL? *X® does crash the 
system. Recause *"X* is next ta “*C’, l 
have crashed many times by accident. A 
better letter would have been “*T’* (far 
indirect). Mr. Tretheway must not have 
read his manuals. Location 9976 is 
listed as disable "ss" terminator. Lt 
you add this poke to his sample program, 
it crashes when an open command is 
given. Loading and unloading the R/W 
head is not good for the drive. Poke 
9976 and shorten the life of your disk 
drive! 

Insulting my capability as an author 
and reader was mot the right way to have 
more information about the DOS available 
to the public. If you read my article 
carefully, you will see phrases like 
"minor problems", "decoder is great", 
"utilities...are great", "manuals are 
great", "much improved", etc. IT was not 
weiting a 19 page article, so I couldn’t 
have awhole paragraph on each utility 


and reference manual. I'm glad that Mr. - 


Tretheway made those features clear. 
Aren"t we both on the same side’? 
Sincerely, 


DISK BUFFERS, WHAT ARE THEY? 
by Don VanSyckel 


The prupose of a disk buffer simply 
stated is to buffer data which is going 
to or coming from a disk. Alright, so 
What does this mean? In OSI disk 
systems, the diskette subsystems are 
dumb subsystems or peripherals. This is 
evidenced by the fact that the main 
processor actually operates the drives 
via an Asynchronous Communication 
Interface Adapter (ACIA/46850) and 
Peripheral Interface Adapter (PIA/6821). 

With this in mind, some background is 
required in order ta understand why 
things are structured in the manner they 
are. Any Giskette has data written to 
it or read from it in ai continuous 
stream. AS such, the diskette drive can 
not directly locate a particular byte or 
record on a floppy diskette. On many 
systems, and OSI in particular, the 
diskettes are soft sectored. This 
basically means that the diskette drive 
can only find one given point on any 
track with its hardware. This point is 
located by using the index hole whose 
status comes to the CPU as a discrete 
input via the 6821, 

Let’s examine reading from the 
diskette first, when the CPU is queued 
by the index hole, it initializes the 
6850 to look for the data stream. When 
the 6850 has a character, the CPU reads 
it and the 6850 looks for and receives 
the next character and so an. Now, the 
CPU is receiving data from the diskette. 
The data stored on the track is not all 
user data but also includes formatting 
data. [I doa not intend to explain 
formatting here for ait ais user 
transparent. When the user data comes to 
the CPU, the CPU can do one of two 
things with its either look for and save 
the specific data which is required or 
save all the data and let another 
routine examine it and extract the given 
data that is required. The later is 
mich less complicated and has the 
advantage that all the data on a given 
diskette track may be examined at will, 
with only one diskette access. As 
opposed to the first method where 
separate diskette accesses would be 
required for each piece of information 
required even if it was on the same 
track as the last accessed data. So 
where should the CPU save the data? In 
the disk buffer, of course. 

Writing to the diskette is just the 
reverse, The CPU waits to be queued by 
the index hole and then it pauses to 
allow ao gap. The CPU then writes all 
formatting and user data to the 
diskette. The information for a 
particular track sector is all written 
at one time so all of the user data must 
be available when this writing operation 
begins. Where should the user's program 
store this information? In the disk 
buffer. 
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The cdigk buffer a6 a block of memory, 
weually AM, where the CRU writes data 
to oor reads data from during a diskette 
read ar write, respectively. The disk 
buffer Carn. in the general case, be 
located anywhere in memory and be any 
Sie a. In & 8pecifie cage, the digk 
butter may not reside where there is 
gamething else in memory already, such 
as your program, Disk Operating System 
(DOS), stack, variables, etc. For a 
diskette read, the disk buffer must be 
RAM: however, for a cdigskette write, the 
disk buffer could be ROM and/or RAM. 
OST has aleo restrained the simple disk 
buffer ta be a multiple of 256 bytes, 
One pager up to a total of IS pages on 
gme track aif ane sector ais used ar 
twelve pages total if twe or more 
gectars are used an a track. Wher mare 
than one sector i¢ used the diskette 
drive handler routine leaves a qap after 
each of the sectors so that the 
beginning af the subsequent sectors can 
be leacated for reading and rewriting. 

The DOS is the pragram which actually 
handles the reading from and writing to 
the diskette. The CALL coammand is used 
te read and the SAVE cammand i6 used to 
wri te. In the qeneral form these 
commands ares 


CA MMMM=TT,.S 
SA TT, S=MMMM/F 


whi esr ek 


MMMM=4 digit hexidecimal number which is 
the address af the first locatian of the 
Gdisk buffer, leading zeroes must be 
included (<4 $1000) 

TT = 2 digit decimal nmumber af the 
diskette track, leading zeroes must he 
included Cal-0O9) 


9S = | digit hexidecimal number of the 
sector an the specified track 
Pos | digit hexidecimal number 


indicating the number of pages to write 
to the digkette. 


Let's @xamine each of these two 
commands ain detail. CALL command 
parameters are passed to the appropriate 
DOS routines. The DOS commands the 
diskette drive to select the specified 
track, the track is read toa locate the 
beqinning of the sector, and the data is 
read from the diskette and stored 
sequentially ain the disk buffer. In 
this case, the buffer must be RAM, but 
it could be special function RAM such as 
the video display or color cantral oan 
the OST S340 board. It should be noted 
that the user can not specify how much 
data is to be read. The DOS will read 
the entire sector specified in the CALL 
cammand., For example, if the cammand CA 
DOOOs4O0,1 were executed ta fill the 
Video memary with & picture and sectar 
#l of track #40 were 13 pages long, the 
DOS would write data out to #DbOOO thru 
$DCFEF which would destroy anything in 
its path fram $D800O thru #DCrF. i+ 
seatar #1 of track #440 were &@ pages 
long, then it would exactly fill all of 
Video memory. 


The SAVE cammand parameters are 
passed to the apprapriate DOS routines. 
The DOS, as in the CALL command, selects 
the specified track, the track is read 
to locate the beginning of the sector 
specified, and the data is stored 
gaquentially anto the disk. The digk 
buffer which contains the data is 
Weually RAM but could be an EFROM, the 
system monitor FROM, ar video memary. 
For example, if you use some device 
other than the video manitor (device #2) 
as the system console you could create a 
picture an the monitor and store it on 
diskette for later recall. The command 
SA 40, 1"DO00/8 would save the 8 pages of 
Video maemary from #DOOO thru #D7FF, i+ 
you changed the picture slightly and 
saved iit also and repeated this 
procedure several times, a& small BASIC 
pragram could be used to CALL them to 
the screen creating an animated effect. 

Not that general disk buffers have 
bean discussed, let's e@xamine the 
specific disk buffers which the DOS and 
BASIC use, These are as follows: 


USED BY INSTRUCTION 


DOS LOAD 

DOS PUT 

RASIC DISk OPEN x 

RASTC DIsSk CLOSE x 

k for both DIRECT and SEQUENTIAL files. 


Im the DOS commands LOAD and put, the 
DOS routines which perform these 
FUNCTIONS essentially supply the inputs 
to the CALL and SAVE commands 
respectively. 

In addition, CALL and SAVE are called 
multiple times if necessary: once for 
each track which is in the file. OSI 
RASIC or assembly language source files 
beqin at 83179, The first & bytes of 
each file are listed below: 

MEMORY ADDRESS FUNCT TON 
12,665 $3179 ee /SOURCE START 
12,666 $3174 HI/  N\ADDRESS 


12,667 $317B LOX /SOURCE END 
12,668 #3170 HIZ \ADDRESS 


12,669 €317D # OF TRACKS REQ 


12,670 $317E START OF USER AREA 


Let*s examine what happens when a file 
is loaded as called by the command: 


LO 45 


The LOAD routine evokes the CALL routine 
PAaASSing it the information: 


CA 3179=45, 1 


After the track has been loaded into 
mamary, the LOAD routine determines is 
there is another track. If there is 
then the CALL routine would be evoked 
again with the information: 


CA 3D79=46, 1 


4 


Note here that the LOAD command had toa 
determine that the first track ‘cailed 
has 12 paces on it. 

This procedure is continued until the 
entire file is in memory. The LOAD 
cammand then passes control back to the 
calling routine. If the LOAD commands: 


LUA “PILE” 


had been used, where "FILE" is a file 
name, then an extra routine must be 
called to read the diskette directory to 
ascertain what track the file begins 
on. 

The FUT command functions ina 
Similar manner. The commands FU 45 
would cause the FUT routine to call the 
. SAVE routine passing it the information: 

SA 45,12#3179/C. After the track has 
been written ta the diskette the PUT 
routine determines aif there is another 
track. If there is, then the SAVE 
routine would be called again with the 
informations GSA 46, 1=3D76/C. The PUT 
cammand has the number of pages to place 
on a track stored in DOS. 

The other special disk buffers which 
were listed were those used by BASIC far 
devices #6 and 7. If the standard OSI 
method is employed to use these buffers 
then the "CHANGE" program must be 
employed to create them. If one buffer 
is to be used it is device #46, and if two 
are to be used then device #7 is alse 
Lisecd . There i8 a discussion in the OSI 
manual about creating these disk buffers 
and how to move your RASIC program 
around aif you have already entered the 
program source code and then remember 
that you need ane or more disk buffers. 
This point seems rather confusing to a 
number af people. The problem lies in 
the fact that OSI did not give 
themselves enough "hooks" in their BASIC 
program file or ain the file header 
itself and therefore the user must do 
manual aperations to set up disk 
buffer(s). 

As stated before, the RASIC program 
file begins loading at $3179 and the 
user has the memory from this location 
through the end of memary ta work with. 
If the user"s program needs disk I/0 
then the user must provide memory for 
the disk buffer(s) out of his allocation 
from $3179 and up. OST chose to have 
the disk buffer(s) reside immediately 
after the & byte file header and before 
the BASIC source code. For example, if 
one disk buffer of the normal OSI size 
of i ji2 pages is needed, running the 
CHANGE program and telling it to leave 
im pages and no extra bytes will cause 
lacation $3179 and #3178 to be loaded 
with $7E and #3D, respectively. These 
are the first two locations of the 
program file buffer which contains the 
starting address of the BASIC source 
code. Nete that these locations 
usually contain $7E and #31, 
respectively, or the location of the 
sixth byte of the program file buffer, 
when disk buffers are not used in the 
program. The BASIC interpreter looks at 
$3179 and $3178 to determine where the 


RASIC source code starts. Since the 
disk bufferds) are tucked away here, the 
program, when called, can use memory 
from the end of the BASIC source code 
through the end of memory for variables 
as it usually does. The drawback is 
that when the program file is stored, 
everything from the first byte of the 
file header through the last byte of the 
RASTIC source code is saved. If there is 
a disk buffer(s) resisent in there it 
also is saved and takes up ai (twa) 
track(s) on the disk. 

An alternative to using these 
standard OSI buffers is ta assign your 
own buffers. This is very easy to do 
with one or two lines at the beginning 
of the BASIC applications program. The 
appropriate information must be entered 
into the locations listed below. 


MEMORY ADDRESS FUNCTION 


294 $0126\ /FIRST BYTE OF 
295; $0127’ \ BUFFER DEVICE #6 
Ok, #0128\ /LAST BYTE OF 

297 $0129/% \BUFFER DEVICE #64 
429 SO1AC\ /NEXT INPUT BYTE 
429 $O1AD, \DEVICE #6 

454 $O1CE\ /NEXT QUTPUT BYTE 
452 $O1C04/ \DEVICE #6 

SOD $O12E\ /FIRST BYTE OF 
ys $012F/ \BUFFER DEVICE #7 
304 #O130\ /LAST BYTE +1 OF 
SOS $O13%1/ \BUFFER DEVICE #7 
SOG #OiFD\ /NEXT INPUT BYTE 
S10 #O1FE7 \DEVICE #7 

m4 $O216\ /NEXT OUTPUT BYTE 
ata #0217/ \DEVICE #7 


For example, if you have a 48K 
system, your RAM is located from #0000 
thru @BFFF (O thru 49151). Let’ s 
create two buffers in upper memory 
fordevices #6 & 7: each being 13 pages 
long (3328 bytes). It does not matter 
to the computer which buffer is where, 
80 I choose to put device #6 at the very 
top and device #7 just below it. The 
folowing code could be greatly 
streamlineds however, it is presented 
here in this fashion to provide an 
explanation of the process. 


10 MP=48%45 POKE296, MPs POKE297, O: POKE294, 
MP~-132POKE2995,0 

20 FPOKE428,MP-13:POKE429, O0:POKE451, 
MP~-13sPOKE49S2,0 

30 POKES04,MP-135 POKES30S, Os POKESO2Z, 
MP-26: POKE303, 0 

40 POKESO9, MP-263 POKES10O, Os: POKESS4, 
MP—-261POKESS3S, 0 

SO POKE1IS2, 255: POKE133,MP-27: FOKES960, 
MP~27:8 CLEAR 


a) 


Im ling 10, "MF" is the maximum memory 
naqde ti. The first two pokes set up the 
end address +l for device #6 buffer and 
the last two pokes setup the start 
address for the device #6 buffer. The 
pokes in line 20 initialize the input 
and output pointers for device #6 
but fey” The pokes in line 30 & 40 do 
for device #7 what the corresponding 
pokes im line 10 & 20 did for device #4. 
Line %O loads the location of the last 
byte of RAM available to BASIC (LOC las 
®& S53) and the maximum memary page (LOC 


BIGO0) . The CLEAR causes BASTC to update 
its pointers for end of mammary, from 
locations 132 &% 234, The maximum page 


is ainitially loaded by the system of 
power up by testing the memory and need 
mot really be changed for the program to 
work. However, if your program bombs 
and you perform statements in the BASIC 
immediate mode, the values in locations 
132 & i i133 get reset sometimes. If yoou 
GOTO back into the program and the 
pointers have been updated, the BASIC 
interpreter will write string variables 
over the disk buffers. 

Now that the actual data transfer and 
starage locations have been covered, 
let’s examine the manner in which BASIC 
uses a sequential file. Executing the 
following. command causes DOS to read the 
first track of the file into the disk 
buf fer. 

DISK OPEN, 6, "PILE 
If the program reads from the file with 
an INFUT#6, the DOS returns the 
characters firom the beginning of the 
file thru the first carriage return 
($OD) character. The mext and 
subsequent input statements return the 
characters firom after the previous 
carriage return character until the next 
one. This process cantinues as the 
user's program does inputs until the DOS 
reads the last character in the disk 
buffers then the DOS reads the next 
track in to the disk buffer, starts at 
the beqinning of the buffer again, and 
finishes reading the characters thru the 
carriage return character. This 
continues thru the end af the file at 
which time DOS will give you an error 
message if you attempt to read past the 
end af the file. 

The process of 
sequential disk file is 
reading. The data written out is 
entered into the next location in the 
disk buffer and a carriage return 
character is inserted. When the last 
location in the disk buffer has been 
written into, the DOS writes the disk 
buffer to the diskette and places the 
rest of the current message in the disk 
buffer starting at the beginning again. 

Tt should be pointed out here that 
BASIC terminates its input strings with 
a carriage return and ignores 
miscellaneous non-printable characters 
such as line feeds. The BASIC FRINT 
statement always terminates with a 
carriage return and line feed. The line 
feed can be eliminated 
procedures: 


weiting to a 
similar to 


by the following 


10 CR®=CHR (1°35) 
LOO FPRINTH#HS, "USER DATA S CRs sFRINTHS 


The CR variable in the print statement 
puts Aa carriage return ain the disk 
buffer, the "s" after CRE causes the 
print statement to be extended or 
cantinued, and the print ta device #9 
finishes the print with a carriage 
return and line feed ta the null device 
(obit bucket). This one byte per data 
item may aor may not be worth while. Se 
your data ig a series of 3 digit numbers 
for example this trick will reduce each 
data entry from 3 bytes (S+CR+tLF) to 4 
byte (3+CR) far a 2O%4 space savings or a 
aww increase in data storage. 

After all operations toa a give file 
have been cone the file is closed with 
the cammands: DISK 6,CLOSE., When you 
cloge a sequential file you have written 
tao, DOS puts an end of file marker after 
the last data written by the user and 
then forces a write of the buffer to the 
igh. If you have been reading, the 
disk buffer is only written out, The 
DOS routines could be upgraded 
considerably ta make them mare 
intelligent as to just when disk [/0 was 
needed. 

The use of direct Crandom) access 
files 16 very similar toa the use of 
sequential files. However, in this 
case, the program indicates which recard 
is to be read: DOS calculates what track 
it is on and reads that track inte the 
disk buffer. I don"t care for the OST 
direct file handling capabilities at all 
and obtain much better performance both 
in the number of disk accesses and in 
data density from a Subroutine package 
weitten in BASIC which handles the disk 
with CALL and SAVE commands. Once 
again, the trick af circumventing the 
line feed character per item in each 
recard can be saved. For example, in one 
of my applications there are 14 items 
per recard and I needed records 114 
characters long. At this size 29 
recards fit on one track. Tf the normal 
print had been used which included the 
line f@ed character, records 128 
(114414) characters long would have been 
required and only 26 records would have 
fit ana track. The extra 3 records per 
track add 228 (3X76) records to the 
capacity of the disk. (An article about 
user control of direct files was printed 
im Vol 2 #3 p.10 of the Aardvark 
journal.) 

Tf the standard OST disk routines are 
used for random files, then the input or 
output to a particular record, say 8, is 
BDlaced between the following 
statements. 


Dist. GhI = 


DISK ruT 


The GET command loads the proper disk 


track into the disk buffer and sets. up 


the input and output pointers to the 

address of the first byte in the buffer 
of the referenced receard. Random files 
need ta be closed alsa, 

In conclusion, the disk buffer, in 
general, is a section af RAM which must 
be allocated out of the section of RAM 
which is in the user’s area. The buffer 
igs only a holding area which can be 
either read fram or written to at will. 
It is structured in this manner to 
minimize disk accesses and increase 
execution speed. 


HIDING MACHINE LANGUAGE ROUTINES 
by Don VanSyckel 


I have read several methods of 
loading machine language routines far 
use with RASIC programs. However, the 
method presented here for disk users 
requires the routine(s) to be loaded by 
the user or pragram anly once and 
requires little effort ta da it then. 
First write and debug your routine using 
the Assembler and Extended Monitor. When 
the routine executes properly, assemble 
it to upper memory with an offset such 
that the origin is really $3176 
A Lee STE? Save the cade in ai track 
sector which is only the required number 
of pages to cantain the code. 

When you begin to write the BASIC 
program run the "CHANGE" program first. 
When asked about "EXTRA BYTES" betoare 
RASIC, enter the size of the disk track 
sectar that the assembly language code 
is stored ain (256 X # of pages). After 
exitting fram the "CHANGE" program, use 
the CALL cammand in the DOS KERNEL to 
load the disk track sector containing 
the machine language code to #317E. 
When you FUT your BASIC program, the DOS 
will save everything from #3179 (12,665) 
to the end of the BASIC source code. 
The first five bytes are the disk file 
header and from $317E to the end af 
memory is the user"’s area. 

The BASIC program can call the 
routine ts) in either of two ways, @ither 
with USR or GO. Using the USK funectian 
one parameter may be passed to and one 
back fram the assembly language 
routineds). The USR requires same set up 
pokes sa RASIC knows where the assembly 
language routine starts. If only one 
routine is called the pokes only need toa 
be done once. However, if more than one 
routine is called then the pokes must be 
dane before each USK. The GO, from the 
DOS KERNEL, can be used directly as 
DISK! "GO S17E" although no parameters 
can be passed directly. However . i+ 
needed RASTC can poke numbers inte 
memory and the machine language routine 
can read them there. The ideal place 
for this "mailbox" is immediately after 
the machine language routine because 
there is probably space left over from 
roaunding up to the next whole page size 
wher leaving room ar if nat enough roam 
is there a few extra bytes can be asked 
for initially in the CHANGE program. It 
should be noted that the return in the 
assembly language routine(s) must be a 
RTS and that more than one assembly 
language routine can be stored together 
in frant of the BASIC source code. The 


entry points for each of the various 
routines must be known though. One 
other thing which the user must be 
careful to do is to clean up the 6502 
stack at the end of the routine so that 
the RTS returns ta the proper place. 


HOW TO SAVE ROM BASIC PROGRAMS ON DISK: 
by Walfqang Baer 


There are three ways of saving ROM Basic 
programs on OSI minidisks: 


(1) The "normal" way is to make use of 
the cassette recorder. The ROM RHasic 
pragrans are saved an cassette. Then 
you type (BREAK) D to start Disk Basic. 
After killing BEXECK by NEW you can take 
the new program from cassette. Fut the 
input on the cassette interface by 
POKE8993,1. This input will end with a 
reset to the keyboard if a syntax error 
is encountered on tape (as the "OK" 
message). Two things are important: Be 
Sure you have a clean start of the 
listings on cassette, without the word 
"LIST" or any garbage because this will 
Cause a reset. And because Disk Hasic 
is much slower than ROM Basic, it will 
need more time to chew each line of 
Rasic. SQ make the pauses between the 
lines longer before you save them from 
ROM Basic by FOKEIS,30. If you want to 
put a Disk Basic program on tape, do it 
by FOKE8994,3: LIST line no. and 
afterwards POKE8994,2, Or you can 
LIST#1, line no. but will have no 
listing on the screen. Afterwards, you 
can load the program into ROM Basic from 
tape, 


(2) After starting the disk system by 
(BREAK) OD, type EXIT. Afterwards, you 
can make a coldstart by (BREAK) C. Give 
am answer to MEMORY SIZE? The lower 98k 
bytes are not used by diskette Kernel, 
SG your memory size is 8192, Now you 
can work im ROM Basic. When your 
program is ready to be saved, type 
(BREAK) M 2A51 G. Now youre in diskette 
Rernel and can treat the ROM basic 
program as if it were machine code. You 
Will have to save everything from zero 
page to the end of the program, as 
indicated in #007C. If you find an 1F 
in $0070 (the highest possible number) , 
then you will have to use four tracks, 
2k Byte each. Zero page goes to disk by 
SA track, 1=OO00/1 (that is the only 
way), the rest of the first two Kbytes 
by GSA track ,2=01380/7, If €007C is 
higher than #07, you go on: SA second 
track, 1=0800/8 and soa on. The program 
comes back from disk by CA 9000=first 
track, 1 CA O130=first track,2...CA 
1B00=fourth track,1. Because all 
pointers and vectors have been saved 
together with the program, you can now 
go directly to Warmstart. If you da any 
chages to the program while editing, be 
sure to capy everything including zero 
page back on disk. 


(3) The ROM Basic program starts 

normally at #O301. This is indicated at 
$0079 and tOO74, If you change these 
locations together with the variable=end 
of program pointers at #0078 and SOO7C . 
YOu can set that way your ROM Basic 
program toa work on the disk Basic 

program that starts at $327E, with the 


workepace pointers at #3279..327C. It 
you have a program on disk, you can 
reach it by ROM Basic with the following 
COMM a CLS a 


(RREAK) D to get Digk basic to work. 
(RREAK) C to start ROM Basic. Give an 
answer to MEMORY SIZE? If you have Se 
Kbytes and 2 kbytes of USR routines at 
the top, your memory size 16 3O780O, 
Qtherwise, the memory test would destroy 
the cdigak kernel and the program you want 
to work oar. Now you take the machine 
code monitor and copy the locations 
S507 9.00270 th #0079..0070e. You can da 
this by hand or by this machine code 
MGLLLEys 


Ao. OCS LOX HBOS 

BD 79 32 LDA $3279,xX START 
ee STA 8794 x 

CA DE: X 

OFS REL START 


40 74 @2  JMF WARMSTART 


In my USK package starting at #7800, 
this program is at #7E1E. Soa I type: 


(BREAK) M 7EIE G 


Tf you have taken a Basic program from 


disk, it must appear now and can he 
LUBE Cl» Vice versa, a new ROM Rasic 


program can he transferred to disk 
system by copying the locations 
$0079, .007C to $3279... 32708 


AS OS LDX #%O3 

ES 7¥ LDA $79,X% START 
9D 79 32 STA $3279,%X 

CA DEX 

Ee Be BFL. START 


10 ae ee AMO BAT 


Seo because this transfer pragram is at 


$73F1, I types 
(BREAK) M 7O@F1 G. 


Tt ends with a jump to the disk Ragsic 
EXIT routine. It makes the kernel 
appear by "AK" and display the number of 
tracks meedecd. However, the first time, 
it displays nonsense and must be called 
again by GO 223C. Disk Basic will not be 
ready to work now because it has been 
damaged by the Coldstart. First put the 
program ta disk, then power up again and 
recall ait from disk, Be aware that the 
game tokeng are uged by ROM Hagic for 
LOGD and SAVE as in Disk Basic for EXIT 
amd DISK. Tf you want to change a ROM 
Rasic program to run on Disk Hasic, doa 
not type statements as DISK OPEN #4,A% 
because they will not be praperly 
encoded by ROM Basic. Type instead SAVE 
OPEN #6,A%, and later Disk Basic will 
translate this into the right keyword. I 


want to point out again that it is not 
clever to declare disk buffers at the 
bottam of Hagic, as the OST CHANGE 


utility does. When Saving programs on 
disk, the buffers will be put on disk 
together with the program and by this, 
waste one ar two tracks. Always space 
off the disk buffers at the tap of RAM! 
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1 loagical 


EAGIC PLUS (O51 Cire? 
by Patrick Townson, I[1l. 

RASIOC MLUS is a machine cade routine 
desiadned as an addendum to the HRagic 
loaded into pages vera, ane and two upan 
cold start. [It nmeeds to be loaded only 
one time, upon power ws, and will 
regain until power i686 turned off. 
Subsequent cold and warm starts need 
only have the vectors re-pointed. 


In the past, a& variety of utility 
routines have been devised to help the 
Cir programmer. Most af them require 


calling by USRCX), and the locations for 
the routines were mot standardized ta 
@llow all of them to run at one time. 
The progeanm below does this. Once 
loaded, any Of the special routines for 
screen clear, list, port audit, loaad and 
Save can be accomplished with one buttan 
CONC GAs WSK? ig freed up ta do ather 
jobs, Tt need not be typed in. Fokes 
Li,1i2 need not be pointed at any special 
location (except as you wish for your 
own joos elsewhere). 

The progeam enclosed erases itself 
and leaves @& poked up machine cade in 
page two and ino oa emali portion of page 
26°C. The results are: 


CONTROL Lo te load fram tape (Cexit via 
space bar, as usual) 

CONTROL Z to Gave to tape. (exit via 
Control £ and space bar, as usual) 
CONTROL R to Run program. (exit as usual 
~ Via Control C or normal termination) 
ESCAPE KEY to exit from Basic and audit 
activity at the ACTA port. 
Rub OUT KEY oF instant 
screen (or scaroll window) 
LINE FERED to list progran, and while 
listing, CONTROL S to temporarily stop 
the listing flows CONTROL Q to resume 
the listing flow. Cyou may alternate 
back and farth between S/O as desired) 
However, for selective line listing 
(e.g. "LIST LOO") you must still use the 
word "LIST" followed by specifics, since 
Line Feed in effects calls for List and 
gives CR at the same time, without 
allowing specifics to be requested. 
Thus, the S/O feature. 


clearing of 


After a warm or cold starts You must 
re-positian the vectors,as follows: AS 
ONE LINE IN IMMEDIATE MODE: 
POKES36, 78: POKESS7, 2: POKESSa, 48 
PES? i ee Don’t forget that on same 
older model CiF machines, the first 
command entered after warm start give an 
OM Errar. Sa to avoid typing the above 
line twice, first enter some dummy 
command like Print F. 

Although mast machine codes offering 
Utility functions seem to be located 
beqinning at Hex OB22 (decimal 344), my 
Own particular machine has the Aardvark 
Edit Rom located (Cin part) at those 
locations. Sa I have devised the 
following program to begin at S860 
decimal-where Aardvark"s ROM leaves off. 

However, the user can place the 
routine wherever desired-even in the 
high portion af RAM, But the most 

place is page two (Cand part of 


page zero) since these areas are rarely 
used otherwise, and don"t waste any 
ugable memory (since the Basic program 
enclosed washes itself after running). 

If the users want to relocate the 
pragran (for example, to begin at Hex 
Q@e2) care should be taken to change all 
the JSR*’s, JMFP*’s, etc. to relate 


everything to each other. In 
particular, lines 150-160 will need 
attention. Also, lines 6 and 170 will 


have to be carefully re-arranged. 
Caution should be observed in moving the 
routine to other locations, since I have 
carefully woven them together relative 
to the &69-660 area of page two. Many 
af these routines were available 
elsewhere, quite independent of each 
other. The JSR’s in particular just 
might cause alot of trouble if you break 
up Car move) the program. 

For ease in loading, you might want 
to have the program self start after the 
tape has been run. While still in the 
SAVE made after line 200 has passed, 
type in the immediate mode, Carriage 
Return, Carriage return, PORESIS, Os RUN 
Carriage return. The above added to the 
tape will cause the machine to execute 
and erase the program as ScGnN aS you 
have loaded it. If all goes well, you 
should then be able to press "RUB QUT" 
and get an immediate screen clear. 

The soa called Fort Auditing Routine 
(Escape Key) allows the programmer toa 
review the cantents of a tape (or any 
activity at the Back Door) while another 
program is operating, without loading 
the activity t the port inadvertently on 
to the current program. To use it, start 
running the tape to be examined, then 
hit "Escape". The characters aon the tape 
will fill up your screen, until the 
space bar is hit. 

If you don’t like the use of L/Loads 
Z/Save and R/Run, you can change them as 
follows: (after program is run). Fram A 
ta Z is from 1 to 26. To change load: 


POKES94, XX-SavesPOKE6O1, XX-RunsPOKEG22, XX, 


Normal values of these locations, of 
course, iif SS4(1l2)5 601(26): 622¢18). 
Line feed value is 10, which means it 
can also be worked by Control J. 


RASIC PLUS - A machine code routine 
which provides additional control code 
features toa users of OSI CIP Basic in 
Rom machines. 

PURPOSE: When operative, provides user 
with Control L to loads Cantrol Z to 
Saver Cantrol R to Runs {(RUBOUT) for 
instant screen clears (ESCAPE) to audit 
port without loading or disturbing 
current run. 

CAUTION: Basic does not load over this, 
80 it does not have to be re-run after a 
cold start. But after a cold start or 
warm start, you must reset vectors: 


POKES 36, 78: POKESS7, 2:POKESS8, 48:POKESS9, 2. 


& For X equals 360 to 660 

10 Read A: POKEX,A:NEXT 

14 REM 360-589 is Control Output $/Q 
1a DATA72,169, 246,141,909, 223,169,192, 
44,90 

20) DATAZZS, 208,112,169, 252,141,0,225, 
169,192 

BO DATA4S4,O, 223, 208, 244,104, 76,108, 
eJa,OrREM S89 REM S/Q listings 

7O DATAS2, 186, 255, 201,12, 208,535,532, 139, 
e2dde201isREM 12 is L/LOAD 

BO DATAZG, 208,53, 32,150, 255, 201, 127, 208, 
on, 762REM 26 is Z/SAVE 

90 
DATAL27,2,201,10, 208, 35,76,181, 164: REM 
620 REM 10 is Line Feed/LIST 

190 DATAZO1L, 18,208,6,32,119,164, 32,194, 
165,76:REM 18 is R/RUN 

110 REM lines 120-130 for Rubout Key 
Screen Clear routine 

120 DATA72,169,32,162,9, 157,9, 208, 157,90, 
BOF « LSS 4 Dy ei 

130 DATALIS7,9, 211, 232, 208,241,104, 96 

140 REM Lines 150-160 Set Input and 
Output vectors. 

150 

POKEL1, 78:POKE12, 2:POKES346, 78: POKES37, 2 
160 POKESSS,48:POKES39,2 

165 REM Pokes 2146-235 is the Port 
Auditing Routine 

170 For X equals 216 to 235: Read Y: 
POKE X,Y¥sNEXT 

180 DATA169,255,141,3,2,44,3,2,16,9, 

oe, 196,255, 32,45,191,24 

190 DATA144, 242,96 

200 NEW:REM No usable memory lost.This 
erases itself and leaves a poked up 
machine code in paes 2(360-660) and a 
little in page 0(216-235 


TQ SELF START, WHILE SAVING TO TAPE, ADD 
"CR/CR POKE 515,0:RUN CR" 


SCREEN PRINT by John Price 


The following is a listing and sample 
printout of a "Screen Print" routine 
that copies the contents of the screen 
to a printer, for an OSI CiP. These are 
my comments on the program, by line 
mums er . 


19. Dimensions an array (Screen) the 
size of the screen area to be printed. 
Sets upper left & right corners of the 
Screen area & set X & Y to their initial 
Values. 


29, Starts reading the area of the 
screen to be printed & increments X by 
ae 


SO, Peeks the screen location to 
determine what is displayed there. 


4) . Stores the ASCII value of the 
character at each location in the 
AMI ay « 


wO,. If we have reached the right side of 
the screen we go to LN7O if not, continue 
to line 60 which takes us to the next 
screen location to the right. {LN 60 
next) 


70, Increments Y by 1 to provide proper 
storage in the array. Increments C & D 
by 32 to move ws down 1 line aon the 
scireer and resets X ta oO, 


80, Determines aif the program has 
reached the bottom of the screen area we 
wish to print. If we have,it moves ta 
line 100 which starts the output portian 
of the program. if not, tt faelle thru te 
Line 90 which returns us to the screen 
reading loop. 


too. Turns on printer port. (R&232 


110 & TAO. Provide X & Y values far 
reading array Screen, from left to right 
& top to bottom. 


1SOo. Sends the proper code (number) to 
the printer and screen to print what was 
on the screen. If we have read a 
camplete line (24 characters) the 
"Peint” orovides a "CR" for the 
printer. 


160. Shuts off RSSSE and terminates 
Broder am. 


The sample run is how the screen (TV 
with RF modulator) looked when the 
program Cminus LLNS 1,2,%3) was listed 
and the program was then run. 

The tape has the program on bath 
Sides. 

[Tf this is of no use, burn the paper 
im your fireplace & find a qood use far 
the tape. 


FROGRAM LISTING 


1 REM SCREEN PRINT JOHN PRICE 
KNOXVILLE TA 
“ REM FROGRAM SCANS VIDEO MEMORY 


LOCATIONS THEN PRINTS 
% REM THOSE CONTENTS TO A LINE PRINTER 
(WRITTEN 12/15/81) 

10 DIMS(24, 21) :C=534151D=534372 X=02Y=4 
20 FOR@=CTOD: X=X+1 

SQ  Z=PEEK (A) 

AQ S(X,Y)=Z 

SO IFX=24G0Ta70 

60 NEXT 

70 YeY+irC=C+32:D=D+521 X=0 

80 IFD>534045GOTO100 

90 GoTOZO 

100 SAVE 

110 FORY=1TO24 

120 FORX=1TO24 

iSO PRINTCHRS (9 (X,Y) ¢2 TEX=24THENPRINT 
140 NEXT 

130 NEXT 

160 POKES17, 0:END 

Ok 


SAMPLE RUN 


10 DIMS(24,21):C#S3413: 
D=S2437 5 X=Or Ved 

20 FORA=CTOD: X=X+1 

SO Z=PEEK (A) 

40 S(X,Y)#Z 

SO LFX=24G0T070 

60 NEXT 

7O YsY¥+irC=C+32:D=D+32: 
X=) 

80 IFD>S4045GaTO100 

90 GOTOLO 

190 GAVE 

110 FORY=1TO21 

120 FORX=1iTO24 

130 PRINTCHRS(S(X,Y)) 93 
TFX=24THENPRINT 

140 NEXT 

150 NEXT 

160 POKES17,0:END 
Or: 


WOING THE VIDEQ MOD Ii ON DISK SYSTEMS 
by Ranmald C. Whitaker 


Qne of the hazards of making 
modifications to a standard system is 
that unexpected incaompatibilities may 
later appear when the system is 
expanded. In my case, I nad already 
added an OSf 610 Disk Controllerboard to 
my CiP and ait was up and running OK. 
Then I read about the Video Mod II which 
increases the visable display from 24 X 
24 to Ge Xx Se. (It's actually 28 X 32 
an my monitor). This sounded like a 
good idea at the time so I ordered plans 
for the mod. At that time AARDVARK was 
not yet recommending the mad only for 
nan-disk systems. I soon received the 
plans for the mod and a new 3.40672 mhz. 
crystal and made the required changes 
and additions toa my system. The mod 
worked fine on the first try and I 
immediately like the new display. All 
was fine until I tried to boot the disk 
and it wouldn't. I rechecked all wiring 
and found nothing out of place. Next I 
plugged into the schematics of the 600 
and ©1060 boards and the video mod = and 
came up with the following 
modification. 

The standard time base (about 4.0 
mhz) goes to a 16 stage divider chain 
formecd by USO, U9, U6O and US6l. These 
1® outputs are labled CO to Ci&. Each 
Output in this chain is 1/2 the speed of 
the previous one. Thus, CO produces a 
Glock of 2.9 mhz, Cl is 1.0 mhz and so 
an through CiS which produces 60 haz. 
These various divided timing siqnals are 
used toa drive the reset of the system. 
Of particular interest ais Ci (1.0 mhz) 
which drives the microprocessor and (C4 
(125 khz) which produces the transmit 
clock (TX CLE) for the cassette 
interface. Several others are used to 
produce the video timing signals. 


The Video Mod II works by replacing 
the original crystal with a faster one. 
This speeds up all of the timing siqnals 


which outputs the video characters toa 
the display faster $0 more will fit on 
the screen. Soa far, 80 good. The 


timing of the cassette transmit clock is 
also increased.so the cassette baud rate 
is increased from S300 to 412. This is 
only a problem if you want to load 
samneone elses cassettes recorded at 300 
baud. Since most of us dao, the Video 
Med includes & circuit which divides the 
faster C4 signal back down to 125 khz. 
As already mentioned, the mod makes 
the microprocessor run faster toa. This 
would be fine except that the 
microprocessor produces another clock 
called the Phase Two clock (O02) which 
drives many components of the system 
including the transmit and receive 
speed of the disk controller. Since 
disk input and output is very timing 
sensitive, any changes will render the 
disk inoperative. The solution then is 
to not change the disk timing. Ta do 
this I chose to duplicate the original 
4.9 mhz time base and the first stages 
Of the divider chain on a separate piece 
Of perf board. I used wire wrap far 
canstruction. The schematic for this is 


‘eran pin 327 


Gf lS (00 anput te the 
microprocessor) and pin 13 of USO (Ci 


output of divider chain). The output 
from the duplicate 4.0 mhz timebase is 
then soldered to the cut trace on the 
pin 37, U1iS side. This ais shown in 


Fig.2. This replaces the original timing 


to the microprocessor, the phase 2 
Clock, and the Disk transmit and 
receive. Now the disk works and so does 
the Video Mod. 

I previously mentioned ai circuit 
provided with the Video Mod which 
changes the too fast C4 signal back to 


125 khz so the cassette interface 
operates at 300 baud. When you have the 
610 disk controller board the additional 
circuit is not needed. There is already 
a l25 khz signal an the 610 board which 
may be routed through the unused pin 11 
on the Jil connector between the 600 and 
610 boards and then to pin 2 of US7 on 
the 600 board. This is shown in Fig. 
i 

I?m sure 
using the 


there are other ways of 

Video Mod anda disk system 
together. This is the one that worked 
for me. Hopefully, it will allow those 
of you with disk systems to also use the 
Video Mod and AARDVARK can resume 

selling the Video mod for all CIP and 


shown in Fig. 1. I then cut the trace Superboard systems. 
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CHARLES HEPNER, STERLING HEIGHTS, MI 

The following if a listing of my 6502-0F 
CODE table Generator program and the 
SS0OR OQOF-CODE table it generates. This 


program came tao ime as a by-product af my 
Ragic Digs-asgsembler program. In that 
progmam, l wanted ta be able to determine 
the mneunonic for @ach OF-CODE without 
building a string array to do it. 


RUN2000 


The 


data 


2Q00 thru 


the 


heaclers, 


6502 @P-C@DES IN DEC &@ 


READY 


HX OP L 


00=BRK } 
06=ASL2 
CC=? 

1e=? 

18=CLC} 
1E=ASL3 
24=BITe 
2A=RBEL 1 
30=BMI 2 
36=REL2 
3C=? 

42=7 

48=PHAI 
4E=LSR3 
§4=? 

SA=? 

60=RTS1} 
66=RGRO 
6C2JIMF3 
72=? 

78=SEI 1 
TE=KEK3 
S4=STY2 
BA=TXA! 
90=BCCe2 
96=STX2 
9C=? 

A2=LDX2 
AS=TAY i 
AE=LDX 3 
R4=LDY? 
BA= TSX i 
CO=CPY2 
Cé6é=DECe2 
CC=CPY3 
D2=? 

DS=CLDI 
DE=DEC3 
E4=CPXK2 
FA=N@P 1 
FOz=BEG2 
F6=SINC2 
FC=? 


HX OF L 


QO1=O8RAC 
O7=? 
OD=@RKA3 
1327 
19=@RA3 
iF=? 
25=AND2) 
2B=? 
31=ANDO 
37=? 
3D=AND3 
43=? 
49=ECR2 
4F =? 
SS=E@R2 
SB=? 
61=ADC2 
67=? 
&6D=ADC3 
73=? 
79ZADC3 
7F=? 
85=STA2 
8B=? 
91=STAe2 
97=? 
9D=STA3 
A3=? 
AY=L DA2 
AF=? 
BS=LDA2 
BB=? 
Ci=CMFe2 
C?=? 
CD=CMP3 
D3=? 
D9=CMP3 
DF =? 
ES=SBCO 
EB= 
FIi=SBC2 
F7=? 
FD=SBC3 


HEX 


128 
134 
140 
146 
152 
158 
164 
170 
176 
182 
188 
194 
200 
206 
212 
218 
224 
230 
236 
242 
2 48 
254 


= N@T STANDARD @P-C@DE 


WITH MNEMONICS &@ INSTRUCTI@N LENGTHS 


HX @P L 


O2=? 
O8=FHF 1 
OE=ASL3 
14=? 
1A=? 
202JSR3 
26=ROEL2 
2C=BIT3 
32=?7 
38=SEC! 
3E=kR@L 3 
44=7 
44=L SR} 
SO=BVC2 
56=L Ske 
5C=? 
62=? 
68=PLA1 
6E2REK3 
74=? 
TA=? 
8O=? 
86=STX2 
8C=STY3 
92=? 
98=TYAI 
9E2? 
A4=LDYe2 
AA=TAX 1 
BO=BCS2 
B6é=LDXe 
EC=LDY3 
C2=? 
C8=INY 1 
CE=DEC3 
D4=? 
DA= 
FO=CPX2 
E6é=INC2 
EC2CPX3 
Fe=? 
F8=SED1 
FE=INC3 
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HX OP L 


Q3=? 
O9=@RAS 
OF =? 
15=@kAe 
1B=? 
21iz=AND2 
eT=? 
2D=ANDS 
33=? 
392 AND 
3F= 7? 
45=EF@RA 
4B=? 
S1=E@ReO 
S7=? 
SD=E@R3Z 
63=? 
692ADCO 
6F=? 
7T5=ADC2 
7B=? 
BiseSTAeS 
87=? 
SD=STA3 
93=? 
99=STA3 
OF =? 
AS=L DAC 
AB=? 
BisLDA2 
B7=? 
BD=LDA3 
C3=? 
C9=CMP2 
Crz=? 
DS5=CmMPe 
DB=? 
E1=SBCe 
E7=? 
ED=SBC3 
F3=? 
F9=SBC3 
PFs ? 


table 


pracqream 
straight forward. 
the 


2OSQ are 


anc 


statements 


hee 


the 


DEC HX OP L 


Q4=? 
CA=ASL1 
10=BPL2 
16=ASLO 
1C=? 
2e=? 
28=PLP} 
2E=ROL2 
34=? 
3A=? 
40=RTI} 
46=LSR2 
4C=JMP3 
522? 
S8=CLI} 
SESLSR3 
64=? 
6A=ROF1 
70=BVS2 
76=ROR2 
7C=? 
S2=? 
S8=DEY } 


- BEZSTX3 


94=STY2 


1 DQA=TXS1 


AQ=LDYe2 
A62LDX2 
AC=LDY3 
Be=? 
B8=CLV1 
BE=LDX 3 
C4=CrY2 
CA=DEX I 
DOC=BNE2 
D6é=DECe2 
DC=? 
Ee=? 
ES=INX1 
EE=INC3 
F4=? 
FAz? 


decimal 


listing is pretty 
Lines 910 thiru 99S aire 
required for 
decoding and lines 1000-1020 is a little 
Ssub-routine to convert 
character string 


co 


equivelent. 


the main line 
and take care of formatting and printing 
associated column 


Pre BP 


CS=GrRAe 
OB=? 
11=@RAe 
17=? 
I1D=@RAB 
23=? 
29=ANDE 
Or=? 
35=AND2 
3B=? 
41=E9RO 
47=? 
4D=E@R3 
53=? 
S9SEORB 
SF=? 
65=ADC2 
6B=? 
71zADC2 
77=? 
TD=ADC3 
83=? 
89=? 
8F=? 
95=STAS 
9B=? 
Ai=LDAe@ 
A7T=? 
AD=LDA3 
B3=? 
BIY=LDA3 
Br=? 
CS=CMPe 
CB=? 
Di=CMPe 
D7 =? 
DD=CMP3 
E3=? 
E9=SBCe2 
EF=? 
FS=SBC2 
FP B=? 


DIrOcmamn 


LIST9 10-2999 


910 DATABRK 1» GRAS» ?2 22 22 @RA2s ASL2s ?2 PHP 1s @RACs ASL Ii» ?2 7s ODRAGs ASL Gs ? 


915 DATABPL2 


920 DATAGRA2»s ?s 27272 BRALs ASL2.s 22 CLC 1s ORA3»s 75 25 22 GRA3Bs ASL 3s 22 ISK3s AND2. ? 
925 DATA?»s BI T2s AND2s ROL2@s ?s PLP 1» AND2s ROL 1» ? 

930 DATABI T3s AND3s ROL 3s ?s BMI 2s ANDO »s 275 25 2? AND2s ROL 2s 20 SECts AND3» 25 ?5 ? 
935 DATAAND3s ROL 3s ?e RTI is E@ROs 29 ?2 2Po EGREsLSROs 2s PHAIs E@ROosLSR1> 7 

940 DATAJMP3sE@R3sLSR3»s ?2BVC2s EGROs 22 2s 2? EOGROesLSREe ?oCLI Ls EGR3. 25 2s? 
945 DATAEGR3sLSR3e 272 RTS15 ADC2Es 25 25 ?P2 ADCEs ROR2s 2s PLA» ADC2s ROR1» ? 

950 DATAIMP3s ADC3s RER3s 7?sBVS2s ADC2.s 75 ?2 2?» ADC2s ROR2»s 25 SEI 1s ADC3s 275 75? 
955 DATAADC3»s ROR3.s 25 ?25 STAs 29 2? a STY 2s STA2s STX 2s 2s DEY 15 25 TXAILs P25 STY3 
960 DATASTA3s STX 3a 22 BCC2s STAs 22 2a STY 2s STALs STX25 22 TYALs STASs TAS 1 25 ? 
965 DATASTA3»s 75 ?s5L DY 2sLDA2sLDX 2s 27oLDYOsLDASsLDX25 79 TAY I sL DAs TAX 1» ? 
970 DATALDY 3sLDA3sLDX 3s ?sBCS2eLDA2s 7s ?sLDYSeLDA2sL DX 2a ?o CLV1IeLDA3=s TSX 1 
975 DATA? »L DY 3sLDA3sLDX 3s 722 CPY 2s CMP2s 725 22 CPY2s CMP2s2 DEC2s Po INY 12 CMF2 
980 DATADEX 1» ?2 CPY 30 CMP3s DEC3»s 22 BNE2s CMP2s 25 22 29 CMP2s DEC2Ss 22 CLD1» CMP3.s 
985 DATA? »s 2s CMP3s DEC3s 2? 2 CPX2s SBC2s 27222? 5 CPX2s SBC2s INCE es 22 INX 12 SBC2s NOP I> 
990 DATACPX3sSBC3s INC3s 22 BEQ2s SBC2s 2s 22 22 SBC2s INC2s 22 SED1s SBC3s 2575? 


995 DATASBC3.INC3»s? 
1000 HI=INTCD/16)3:L@2D-CHI*16) 


1010 CS2MIDSCHSoHI+1is 1L>*+MIDSCHSsL Gels 1d 


1020 RETURN 


2000 I=O02Y=0:HS$="0123456789ABCDEF" 


2001 F@RX=1T23%3 PRINT: NEXT 
2002 PRINT” 


6502 @P-CODES IN DEC & HEX WITH MNEMONICS & INSTRUCTION "3 


2003 PRINT’LENGTHS®’s PRINT’ PRINT? PRINT 
2004 FORX=1TO6s PRINT” DEC HX OP L"'3 3 NEXT 


2006 FORX21TO@62 PRINT” --2 -- <= 
2010 FE@RX2IT@ess 

2012 READGPS 

2020 D=X?:G@SUB 1000 


-"3 :NEXT$ PRINT: PRINT 


2040 PRINTD3 TABC S+ 12eY)3CS3 °°s""3 OP $3 TABCI1S+ LAKY)3 


2050 YeY+is IFY>STHENY=0 

2060 NEXTX 

2080 PRINTs PRINT: PRINT: PRINT” 
2090 FORX=17TO32: PRINT: NEXT: END 
READY 


AND YET ANOTHER JOYSTICK INTERFACE 
by Ted Mahler 


By using anly two 1.C.’s and a 
handful of components you can easily 
convert readily available Linear 
joysticks for use on a Superboard II. 
An LM2901 quad comparator is used to 


campare the voltage level of the 
joystick pots with the voltage level of 
reference pots. This comparison yields 


a voltage which is used ta simulate a 
keyboard key closure. 

As you can see in figure 1, each 
comparator in the LM2901 has a joystick 
pot (JPL ar JP2) connected to one input 
and areference pot connected to the 
ether input. One of the reference pots 
voltage level is set below the voltage 
level of the joystick in the neutral 
position while the otherreference is set 
Blightly above. This setup results in 
each comparator having its inverting 
input higher than its non-inverting 
input yeilding a low output. By moving 
the joystick to the left, the wiper 
voltage of JPi will increase. Fins 9 
and 10 of the LM2901, being connected to 
JPi, will also show this voltage 
increase. This will reverse the 
conditions oan the comparator whose 


inputs are on pins 8 and 99 and will 
change its output to a high. This will 
simulate a key closure of the "1" key. 
Note that the conditions on the 


comparator whole input pins are 190) and 
li has not changed even though pin 9 has 


? 


iZ 


N@T STANDARD @P-CODE" 


increased in voltage. When the 
joystick is moved right, the conditions 
on that comparator are reversed and the 
"2" key is decoded. Ry moving the 
joystick up, the wiper voltage on JP2 
increases. This reverses the voltages 
on the comparator on pins 4 and 3 of the 
LM2901 and provides a high output 
decading the "3S" key. This comparator’s 
mate, on pins 6 and 7, will change its 
Qutput to a high when the joystick is 


moved down, giving a "4" key closure. 
By maving the joystick between any of 
these four positions, two adjacent 


outputs will goa high. This provides 
four additional directions from the 
Joystick. The pushbutton is the "7" 
KEY « 

The comparater outputs, via a pull-up 
resistor, are buffered and inverted 
through a 74LS240 octal buffer/line 
driver. Pin 1 of the buffer is the 
enable for its S-state outputs. This 
enable is strobed by the R7 line from 
the Superboard keyboard connector (J4 in 
the OSI schematics). Qutputs for the 
buffer are connected to J4 as shown in 
figure i. 

Layout and construction of the 
Joystick is, of course, up to the 


builder. Tfyou want the joystick 
positions to decode the same keys as I 
have decoded, then orient the joystick 


assembly as shown im figure 2, Also the voltage an pin 4 18 approximately 


connect the +8 volts and ground such ces volts above the voltage an pin &. 
that the JF wiper voltage increases Likewise adjust RFS such that the 
when moving the stick ta the left and voltage on pin li ais 250 volts below 
> the JFS voltage increases when the stick the pin 10 voltage. After you have the 
| ) is moved up. All decoding circuitry was circuit operational YOu may want to 
enclosed ain a box cantaining the adjust these references to obtain a 
joystick, with an @ pin ribbon connector better "eel" on the joystick. The 
Linkinme ait to ai socket om the back of closer the reference voltages are to 
my computer cage. You may wish to place the joystick voltages, the more 
this circuit in the computer and use six sensitive the stick is to mavement. 
wires for the commection ta the IT have used this joystick directly 
joystick. with the AARDVARK Galaxia game. Other 
Sat woof the circuit ais straight program can Oe maditied to use this 
? forward with anly two adjustments being joystick by changing the contral keys or 
necessary, reference pots dl and 2 (RFI. by modifying the hookup, 


and RES). With the joystick in the 
neutral position, adjust REI such that 


Ri,ne, R93, Re 3900 ohms 

R?7 D1, D2,D3, D4 1N914 
HPL ,RPZ 10,000 ohm po 
WPL soho Joystick pots 
Ici 74LS240 
IC2 LM2901 


Volts 


(Equal to or greater than JP1 or JP2 
(5000 ohms for this joystick model 


FIGURE 1. Joystick interface schematic. 


Ground 


+5 Volts 


To pins 9 & 10 (LM2901) 


FIGURE 2. Physical layout of the joystick. 


(LM2901 ) 


uy, 


110 BAUD MODS FOR OSI C4F 
by Donald Brennan 


R&-232 & 


eae PD) 
On the SO2 board install a 14 pin 
socket &® insert a 7404 at US] position. 
Populate the TX Data Output circuit 


with a @N4405 at Q2, a LOK 1/4W at RSS, 
a TORK 174W at RSZ and a 470 1/4W at 
RSG. 


Cut land at U4l pin 2 going to P/JS 
pin 7. Add wire an F/J1 pin 24 to pin 
at a 

Use a twisted 
going to PIS pin 7 
Going to FP/Je pin Ss 
ta KSR-3S input terminal 


ana Giri 6) 
U U 
3 3 
| 2 

aa = 

Bf 2nN4¥403 


pair with signal wire 
and ground wire 

The other end goes 
Stricxr Pim 7 


O 


C 


OOO 
eee % oN R57 
R56 


110 BAUD MODIF 
The 110 baud mod is obtained by adding a 
29K pot and SFST switch in series with 
Rid and RI7 af SSS timer circuitry on 
the , S3O2 board. This pot is shorted out 
for nmormal 300 baud operation, 

Lift end of R1i6é out of hole and bend 
up. Attach a twisted pair to lifted end 


and hole where Rié& went. Mount the 
sw-pot an the back panel where the AC 
cantrol jack was removed for this mod. 
Connect the twisted pair to this 
SW-pot. 

Set switch to open. Turn on ASR S33 
and C4P, Type save and hold down any 
key for printout. Adjust pot for 
readable printout. When set, type rest 


of keyboard and adjust it if necessary. 
Return Switch to 300 baud position for 
normal operation of system. 

To printout during C4F disk operation 
type list #1. This will send data to 
printer. Inyour programs, have one of 
the line numbers state: DV=1. Have 
print statements state: print#dyv, "print 
statement here". You can modify other 
pragrams already written for the C4F DOS 
by replacing ODV=2 with DV=1. This will 
reroute the data from the CRT ta the 
printer. 


mney 
a 


To RIG 


20K 


RIG fol * 


JOSEPH TAVARES, NEW BEDFORD, MA 

Thanks to your Journal and C2E Ram J 
finally found out how to program my Ca. 
One thing I noticed is that there 
doeen*t appear to be a program that uses 
circular motion on the OSI computer. 
This short program will demonstrate how 
this is done: 


wo FORX*1 TOSS: Pe NexTXsPORESG900, © 

10 L+53967sPOKEL, 219 

1S R=7sFI=3, 14159 

20 FORA=OTO2ZKPISTEP., 1 

2a X= INT CRKCOS (A) ) SE Y=INT CRESIN(A) ) k6O4 
oO FPOKEL+X+¥, 226 

ow FORT#=OTOGs NEX TT 

40 FOREL+X+Y, 32 

4 NEXTA 

SO GOTOBZO 


When this program is run, you will see a 
circle revolving around a cross. If 
lines 35,40 and SO are removed the 
pragream will draw a large circle. R=the 
radius and can be changed for different 
Size circles. L=center of circle. This 
program can be used for planetary motion 
or an analog clock face. 


BORRY AKINS, APO SAN FRANCISCO 
While perusing the Journal 

I realized that no 

Given to 


(YVol.2 #1) 
mention has been 
Number Converting for 


Addresses. Your keyboard routine is a 
good example: 
Keyboard is at #@FEOO yet your pokes are 


O and 253! 

I thought perhaps a means of getting 
fram one to the ather might be helpful. 
This Little quick convertor can be 
manipulated faster than a conversion 
pragram can be loaded. 

This manipulation will work in either 


direction and is quick enough for low 
cast programming. 
1) Reverse the two Poke values 
corresponds ta how address"® are 
leaded. 
2“) Convert each number to an 8 bit BCD 
NuUMES er . 
8 7 & a 4 a 2 4 
Liz8{ 64/32 716 [8472 fi 
3 =e 
EXAMPLE s 253=1111110// 
O=OQNNNNND 


3) Arrange together example: 
LILLL1L9O1 /OONOOOOOO 


4) Separate into 4 each 4 bit numbers 
Example: 1L111/1101/0000/0000 


2) Starting at left look up 
per the look up table. 
Examples a = 2) 's) 
L1i2 70 1101 | OOOO | OOOO 


each 4 bits 


LOOK UF TABLE 


Con7 oy 


8 eelere) 
1 OOO 4d 9 LOO] 
2 OO1O (10) A Oo 
a QO19 1.4). 3 Loi 
4 O100 ie Ge oe 1100 
Ha o1o01 413) D 1101 
& O110 (14) E $1306 
a 4 Jee ae (iS) F 


ee a 


The important thing to remember is 
that there are an awful lot of these 
POKES and PEEKS which you can use 
without knowing anything about machine 
cade and even if you are a ArT ke 
amateur and rank beginner. For 
instance, location 15 on the BASIC in 
rom system cantains the number of 
characters to be printed before a line 
feed, Thats very handy to know. For 
some Ci systems you loose a character 
aff the end of the line if you allow the 
system to to print 24 characters wide. 
If you, however, choose a shorter line 
langth when you power up, you will find 
that you can’t make tapes that can be 
reloaded back into the system. The 
tape interface requires that you have a 
line length af greater than 71 
characters. As long as you know the 
location where the length of the line 
ig stored you can POKE a number in there 
to shorten the line while you are 
programming and FOKE another number in 
there to lengthen the line when you make 
a tape. After you have the system 
running, you can then execute "FOKE 
iS,22" to shorten the line length and 
then execute "POKE 15,72" before you 
make a tape. 

The First Book of OSI by Williams and 
Dorner, Carison’s OSI BASIC in ROM, 
MICRO, COMPUTE, and the Aardvark Journal 
all  coantain references to handy memory 
lecations. Most of these you can use 
Without knowing anything at all about 
machine code and by knowing very little 
about BASIC, 

If you have a disk BASIC system, you 
have even more freedom. In the disk 
BASIC system very little is stored in 
ROM. The entire BASIC line is normally 
put into RAM. That means that you can 
madify virtually any part of your BASIC 
language by simply knowing where it is 
stored an the disk and knowing enaugh te 
either interpret the code or at least 
enough to read the manual where it is 
interpretted for you. For instance, it 
is very anneying to most BASIC users 
that you can’t input a comma or a 
semicolon in the middle of an input 
statement. It sometimes makes it 
difficult to put togethor things like 
word processors and report writers when 


you can*t input punctuation into the 
machine. Fortunately, the OSI 
documentation shows you where the 
section that finds the delimiters is 


located and tells you how to POKE them 
Out of exigtance. 


The first reason the POKEs are handy 
then igs that some things have to be 
stored im RAM because they vary. Ry 


being able to manipulate them directly 
youl can expand capabilities of the BASIC 
and get it up for conditions ain which 
the original authors did not envision. 
The second reason why PEEKs and POKEs 
are handy is that the people who wrote 
the BASIC for your system tried to write 
one basic to run on a lot of different 
machines. They*re no dummies. It’s 


expensive to write a BASIC and to cut 
new ROMs far every machine. Therefore, 
to make the BASIC more universal, they 


tend to write one 6802 BASIC and instead 
of doing things like putting input and 
Output routines into the BASIC, they 
tell the BASIC to refer to certain 


vectors to find those things which vary 
from machine to machine. For instance, 
the location of the keyboard and 
decoding of the keyboard may vary from 
machine to machine as it does between 
the Ci and the C2/4/8 and the Apple 
machines. Therefore rather than 
decoding the BASIC in ROMs, they put 
that decoding elsewhere in another ROM 
and put the address of that ROM in a 
location in memory which the BASIC laoks 
at to find out where to find the 
keyboard or where toa find the video 
screen aor where to find the cassette 
port and all the other things that vary 
fram machine to machine. This has the 
effect af making the BASIC more 
universal and it alse allows us to get 
in and put ain our awn input and output 
routines. For ingtance, on the CIF the 
RASIC ROMs do not know where the 


keyboard is or how to interpret it. 
They do know that in locations S36 and 


soy they will find an address which will 
paint them toward the keyboard routine 
for whatever computer they happen to be 
Slitting in. {BASIC in ROM does not know 
if ait is in aCi or C4) The same thing 
is true for the output routines. They 
are not in BASIC ROMs but the BASIC 

ROMS know that they are at an address 
which is pointed to by the information 
in 338 and 339. 


That allows us to do some neat things 
by putting our own addresses in there 
and by pointing the basic to our awn 
routines. For instance, the cursor 
cantrol program which was published by 
Aardvark, and similar ones which have 
been published ain PEEK 65 and MICRO, 
work by pointing basic to a new input 


routine which we poke into existance 
ourselves, In a similar manner, we used 
toa market ahigh speed load and save 


tape routine for the CIP which worked by 
intercepting the load and save vectors 
and redirecting the machine to our own 
routine. While the beginning user may 
net be saphisticated enough to write 
such routines for himself, a number of 
them are available in old issues of 
MICRO, the AARDVARK Journal, PEEK 65 and 
similar sources which even the beginner 
can implement. 

The third thing that makes PEEKS and 
POKEs handy is that some things look 
like memory locations which really 
aren’ t memory locations. Printer ports, 
cassette ports, and video screens look a 
lot like memory locations and work the 
Same way. For instance, while your 
system will use a UART or PIA for 
cassette I/O, it will look to the system 
as if there was one memory location that 
when you put things into they go to the 
cassette and another memory locatian 
where things magically appear from the 
cassette. Knowing that. we can 
manipulate some of the peripherals 
directly. Some of this is simple 
enough for almost anybody to do and it’s 
a lot of fun. For instance, in the old 
Aardvark catalogs we printed a PEEK A 
PORT utility which worked by pretending 
that the cassette input was a cassette 
location. It printed toa the screen 
whatever it found in that memory 
location and therefore told you what was 
going by on the cassette tape. 


COrvwsT ‘OD 


PEEK A FORT UTILITY 


4 REM PEEK A FORT UTILITY 

8 REM C2/4/8 VALUES 

10 A=643l2sBeA+1 

20 WAITA, 1s PRINTCHRS (PEEK (RB) ) ss GOTO1O 
35 REM Ci VALUES 

40 A=61440: B=A+i1 ; 

SO WAITA, 1s PRINTCHRS (PEEK (CR) ) gs GOTOSO 


This igs a two line program. C2/4/8 
uBers enter lines 10 and 20. Cl users 
enter lines 40 and So. 


There are, of course, a couple of other 
reasons why Peeks and Fokes are used, 
but they are somewhat beyond the scope 
of thig article. They are,of course, the 
basic method by which graphics is done 
with the OSI systems. We've covered 
that in so many previous articles that I 
dan't think it needs to be repeated 
hai & » They also are a handy method for 
storing and manipulating machine code 
programs from a basic system. That, 
however, if samewhat beyond the scope of 
the beginners article and will be 
covered in the upcoming issues on 
machine code usade. 


JOHN SEYROLD, MADISON, WISCONSIN 

Here is an easy way to add a shart delay 
to the break key on a Superboard or CIF. 
This in only for the models that do not 
already have a delay circuit. The mad 
is shown schematically in fig 1 and 
pictorally in fig 2. All welre doing is 
adding a delay to the reset line of 
approximately RkC seconds. With the 


Values shown, I got about a l/2 sec 
delay. To increase the delay, simply 
use ai dblargqer capacitor. Da AGE try 


using a larger resistance unless you 
install a larger pull up resistor an pin 
40 af the 6302. This circuit will alse 
force the computer to come up already 
reset when the power is turned an. 

When I made the mod to my Superboard, 
IT installed the resistor on the 
underside of the board between the break 
key and the hole next toa the trace cut. 
I advise you to sleeve the leads if you 
use this approach. The capacitor was 
MouUunteqd an 
You may wish to 
different capacitor 
soldering onein place. 


top of the board as shown. 
experiment with 
Values 


before 


Ke ; of Guile eal) ‘| BRK 
aks iy 
27 a 


16 


EARL MORRIS, MIDLAND, MI 
FIXES FOR ALTEN RAIN 


To make the "Bullet" more visible: 

45 MP=MP-Vi TFPEEK (MP) =UTHENFORKEMP, Fs 
FORKEMP+Y, Us GOTO4S 

4A& FPORKEMP+Y, U 


Toa avoid leaving garbage when a bomb 
drops using level one: 


19°O FORB=OTODD:s POKEDE (A) +8, Fs 
POKEDE (A) -B, Fs NEXT 


Ta printout the score after a miss to 
show the loss of 3 pointes: 


130 ITFPM (SRTHENSC#SC~—S sGOTO120 


To make the program easier to follow and 
a little faster, TL(CCl) can be replaced 


with & Simple variable Thoin lines 225, 
ode 240, 240 and 420, Likewige DR7) 
can be replaced with DY in lines 135, 
140, LO, Idd, 160, Latte 170, 230 and 
ee 


FERSONAL NOTE FROM C. THOMAS HILTON 


Mr.Hilton noticed an article in one 
of our Journals for a customer who is 
pLind. He has offered his assistance 
ta any "handicapped" individual who 
may need it, CC. Thomas Hilton 

Pr. O.;< Bos #7 

Deer Lodge, Mantana 

DIF ae 


RUBRIK’S CUBE 
by John Wright, Canada 


Rodgers rules of games 
Yeu 

should not bother with games, it is 
easier toa play in their original form. 
This program is leqitmate on two counts 
“first, that I have trouble following 
through on planned moves on the cube 
itself ~secand, my san won’t let me. 

T had thought that it might be easier 
tO see patterns with the problem in two 
dimensions, but so far this has not come 
true, 

The cube is displayed 
down crucifix. 


Poi COCTR” eR TB aay & 


as an upside 
The faces are: 


| seed 


~ (den*t ask why) 


bh 


ee tH 


The program asks which face you wish 
to deal with and how many counter clock 
clockwise ratations you wish to apply. 
Three counter clockwise equals one 
clockwise. If the number of rotations 
18 zero, then the face called for is 
meved to the *1° pasition. 

The program itself is quite simple 
but the coefficients were laborious to 
work Out, The picture is kept in MACS, , 
») which is a9Q9kxX il2 grid. The corners 
are filled with blanks and letters for 
the colours occupy the rest. A New 


®) 


Pas. hiar is mapped anmta MAC ewe), Whi ery 
the mew poigtion is complete it is 

copied back ainto MACB@=——) and POKEd to 
the Screen. The scr@een could have been 
aged anetead of MACBe=) bub ait seemedc 


@asier CQ use a second matrix than 
bela tok BS a As antermediate steps are 
campleted the screen io updated. 

The first block of data ais used for 
SWAB LG the faces around. Lokre S 


Moves face Tf toa position 1 and is read 


REG 
“Move face 1 to p2. Do not rotate. 
~“Move face 2 ta po. Rotate twice. 
ae Leave face 3. Rotate Io turn Cw, 
mee S 


tre SO) Ls the Low munmbered corner af 


@mach $ ace, 


Lk ee é iS tise Coefficients needed toa 


rotate a face im SUEGOO, 
Lined 80 thieaugh 9O are the 


coQerhiclants ta ratate an edge attached 


1 REM RUBIK'S CUBE 
2 REM SOFTWRIGHT (413) 731-9521 

% REM Vi.@, 12 NOV @1 

% OO=33608:LL=S2:REM THESE ARE FOR 600 
BOARD 

10 DIM MAC2,9,12) .MC (6.6, 2) «MR(6, 2) , COC 
6,7), CF (4,6,4) ,CC(S) 

14 MS=1LO4 

16 DIM ME(MS, 2) sN=4 

20 FORT=2T06:FORJ=17T06: FORK=1T02:READMC 
(Ti d,K) sNEXTK, J, 1 

TO BO Bi Gytn tos cool ver eee 

So DATA 40S. 14 1 as Br 5150 

SA DAYAR 2.0, a, Sy G, Oe bes Sy ba dn 

Sh DATA 2,0, 65 24341, 45 55 by Oe ad 

SO DATA 6, Ox 252, 45 Ox 3.01 Bc Su 20 

40 FORL=17T06:FORJ=17TO2: READMR (1,0) :NEXT 
ome 

SO ee 7 ol hia Sate CO er ea 

S35 FORT=17TOPsFORI=1TOL2:MACL, 1,0) =322NE 
XTI, 1 

60 FORT=1706:FORI=1TO3: READCO(1, J) sNEXT 
det 

SS DATA 7,6y 10545 Gay 7s Ben 7a Fe lal 
es ie 

7O FORT=1706:FORJ=17T06:FORK=17T04: READCF 
(140,K) sNEXTK, J, 1 

BO DATA Lyn 4e On 14g By 4g Bamba Ba 4g Ba 2 
~ 04,0, 11,0, 4,052, 2,402 

BP DATA 4501504 Og ba bn by On 4g Onn, Sy ly 
oO, Ay, 0; fy 156, 0 

BA DATA Bam Ly Oa ea Fu Dn Oy Oy Lg Bn Fy 2, hy 
0. 4,0, 165 —1 ha Oe 7505 O00 

Be DATA Cg bn bun Dun Og Oy Ln Bu Fur Bg dA 7 yO 
ne Og Ly by On 4 9 4,0 

BE DATA 65a Dn On LGamdg by Og Oe On Oe Oy dy ml 
0 On Oy Og On OO, By Ly yO 

FO DATA 7g Bu Ong By Bu Fy Bg Ly By Fy By BOs 
O,~8,0,17,0.-8,0,14,-3,-4,2 

100 GOSUES10: GOSUBSO0sFORI=1TO1@:P RINT: 
NEXT I: GOSUBZ00 

110 INPUT"FACE"sFAs IFFA>X6THEN7OO 

120 INPUT "ROTATION" RO: FORI=1TO18: PRINT 
:NEXTI: GOSUBSSO 

130 MECN, 1)=FA:ME(N, 2) =RO:N=N+1: IFN=MS— 
i THENPRINT "N=" MS—4 

140 TFN>MSTHENN=1 

iSO [FRO=OTHENGOSUBR400: GOSUBS00: GOTOLLO 
160 FORL=1 TORO: GOSUB200:NEXTL: GOSUBSOO: 
GOTOLLO 

190 END 

199 REM ROTATE FACE IN QUESTION 

200 FESPA: GOSUB6OO 

220 FORT#1TOS:FORJ=17TO2:FORIA=1T04 

250 CCOCIA) =CF (FA, IA, 1) +CF (FA, IA, 2) k1+CF 
(FA, 1A, 3) KI+CF (FA, TA, 4) kIT 


to a& ratating face. Por Oc ard GOH eO 
you meed faith ar a pile of scrap 
PAE 
Lime LOO reads in oa new cube and then 
GOtfars the opparctunity to overwrite it 
with whatever is aim lines 360 and S70, 
The data on these lines is my son's cube 
as af lg nov. €81-9p.m. The program is 
in lines 110-1460. The subroutines ace 
prec@ecdedcd by REMs describing  thedr 

" furictions. 

The ME matrix remembers LOO moves 
and wild print them, tf YY 2S SRE 19 
respange Co FACES. If you have more than 
Shy then MS can be increased. 
Manipulating the matrices is quite slow. 

Machine language rautines would help. 
Taking out SUEBASO would speed it up a 
Little, but the intermediate updates 
WOuld mot appear . 


240 NEXTIA 

250 MAC1,CO(1), CC C2) ) =MA(2,0C(3),.CO(4)) 
260 MAC1, COCR), CC(4)) =MA(2,C005),CO(S)) 
270 NEXT, 1: GOSUBSO0: RETURN 

299 REM SWAF MATRICES, PRINT 

ZOO FORMI=1TOL2: Z=OO0+LLXMI:FORMI=1T09:M 
AC2,MI,MI)=MA¢1,MI,Md) 

S10 POKEZ+MI,MAC2,MI,MJ) sNEXTMI,MJ:RETU 
RN 

S30 FORNIJ=17TO12: Z=O00+LLXNI:FORNI=1T09 
360 POKEZ+NI,MAC1,NI,Nd) sNEXTNI,NOS RETU 
RN 

399 REM MOVE FACES AROUND 

400 FORK=1TO6:KB=MC (FA, kK, 2): IFER=OTHEN4 
20 

410 FORK C#1T04—KE: FR=k : GOSUBGOO : GOSUBRS 
OsNEXTEC 

420 NEXTE: GOSUB300: FORK =17T06: KA=MC (FA, K 
W103 LFKA=KTHEN4SO 

425 FORT=0TO2:FORJ=0TO2 

BO MACL, MR (KA, 1) +1,MR (KA, 2) +0) =MA (2, MR 
(Kad) +I, MR CK, 2) +0) 

440 NEXTI, 1 

450 NEXTH: RETURN 

SOO INFUT"START NEW OR INPUT" :0%: IFLEFT 
$(0$,1)="S"THEN RETURM 

SiO BLa=" "sFORJ=1TO12:READAG: IFI<70R 
JP9THENAS=BL$+A$+BL 

S2QO FORIT=1TO9:MAC1, 1,70) =ASC (MIDS (AH, I, 1 
)) 

S30 NEXTI,d: RETURN 

S40 DATA RRR, RRR, RRR, BRB, BRR, BRE, GGGOOO 
YYY, GGGOOOYYY 

S50 DATA GGGOOOYYY, WWW, WWW, WW 

560 DATA OGR, 000, 000, BER, BRE, BRR, YYYRRR 
GGG, YYYRRWGGG 

570 DATA YYRGRGOOY, WWW, WWW, WRW 

599 REM 3x3 ROTATION 

600 FORI=1TOS:FORJ=1TOS 

610 MAC1,CO(FB, 1) —I,CO(FB, 2) +) =MA(2,C0 
(FE 1)-J,CO(FR, 3) -1) 

620 NEXTI, 1:FORI=1TOS:FORJ=1TOS 

630 MA(2,CO(FR,1)-1,CO(FBR, 2) +0) =MA(1,CO 
(FR, 1)-1,CO(FR, 2) +7) 

640 NEXTJ, I:RETURN 

700 INFUT"DO YOU WANT MOVES LISTED": OQ: 
TFLEFT# (O#, 1) ¢2"Y" THENEND 

710 INPUT"STARTING AT WHAT NUMBER":NA 
715 POKESI7, 4 

720 FORNBR=NATONSTEFS : FORI=OT04:PRINTME ¢ 
NE+I, 1) sME(NE4+I, 2) : 

730 NEXTI:P RINT: NEXTNE 

740 FOKES17,0:G0TOL1O 


Ly 


100 REM PROGRAM TO SET UP A NEW "AFILE" 

103 REM 

110 REM 1) USE "CREATE" TO MAKE A FIL 
E OF ABOUT 4 TRACKS 

iZz0o REM CALLED "AFILE" FIRST, AND 
RUN "ZERO" TO CLEAR IT. 

i130 REM ) 

140 REM 2) NEXT RUN THIS PROGRAM TO I 
NITIALIZE THE FILE 


150 REM WITH 2 ANIMALS AND SET UP 
STARTING POINTERS 

160 REM 

170 REM REMEMBER TO RUN "CHANGE" T 
O ALLOW ONE BUFFER 

i180 REM BEFORE TYPING THIS IN!! 

190 REM 

195 REM IF YOU HAVE ANY PROBLEMS F 
EEL FREE TO CALL ME: 

200 REM GARY KAUFMAN 204 S.13TH ST 
. PHILA,PA 19107 

210 REM (215) 735-2841 

220 REM 


1000 INFUT"INITIALIZE ANIMAL FILE"s;A% 

1020 IFLEFTS# (AS, 1) <>"Y"THENEND 

1040 DISK OPEN,4, "AFILE" 

1060 DISK GET,9 

1O8O PRINTH#H6, "2,4" 

1100 DISK PUT 

1120 DISK GET, 1 

1140 PRINT#4,"2,3,DOES IT LIVE IN THE W 
ATER?" 

11460 DISK PUT 

1180 DISK GET,.2 

1200 PRINT#6,"!,MOOSE, " 

1220 DISK FUT 

1240 DISK GET,3 

1260 PRINT#4,"!,FROG, " 

1280 DISK PUT 


/ 


100 REM ANIMAL FILE GAME (MODELED AFTER 
APPLE VERSION) 

105 REM GARY KAUFMAN 
HILA,PA 19107 

110 REM (215) 735-2841 
115 REM kkk REMEMBER TO USE CHANGE TO C 
REATE ONE RUFFER 

114 REM &x** BEFORE TYPING THIS IN !! 
117 REM 

120 Cx#i:R=o 

140 DISK OPEN, 6, "AFILE" 

160 DISK GET, 

180 INPUT#S,AS.L& 

200 A=VAL (AS) sL=VAL (LS) 

2°20 FORI=1TO32:PRINT:NEXTIPRINTTAB (25) " 
ANIMALS" :PRINT: PRINT 

240 IFRTHENS80 

260 INPUT" INSTRUCTIONS" 3A% 

280 IFLEFTS (AS, 1) <¢>"Y"THENS8O 

200 PRINTIPRINT"YOU THINK OF AN ANIMAL, 
I WILL TRY TO GUESS THE 

320 PRINT"ANIMAL YOU ARE THINKING OF. 
S40 PRINT"IF I DON’T KNOW THE ANIMAL 1’ 
LL ADD IT TO MY FILE FOR 

360 PRINT" THE NEXT GAME. 

20 PRINT?PRINT"I KNOW "A" ANIMALS" 


206 S. 13TH ST. P 


16 


400 DISK GET, C: INPUT#4, AS, BS, CF 
420 IFA$=" !"THENS20 

440 WP=VAL (AS) FRP=VAL (BS) :PRINTC#: INPUT 
As , 
460 IFLEFT# (AS, 1) ="Y"THENC=RP 

480 IFLEFT$ (AS, 1) ="N"THENC=WP 

500 GOTO4OO 

520 PRINT:PRINT"IS THE ANIMAL A": 

S40 At=LEFTS (BS, 1) 

560 IF (AS="A") OR (At="E") OR (AS="I") OR (AS 
="Q") OR (Ag="U") THENPRINT'N"s 

580 PRINT" ":Bé::INFUTAS 

600 IFLEFTS (AS, 1)="Y"THENPRINT"I GOT IT 
RIGHT! ":GOTO1200 

620 PRINT"ALL RIGHT, I GIVE UP. 
AS THE ANIMAL?” 

640 INPUTNS 

460 PRINT"WHAT WOULD RE A QUESTION THAT 
WOULD DIFFERENTIATE" 

680 PRINT" BETWEEN A": 

700 AS=LEFTS (N@, 1) 

720 IF (A$="A") OR (AS="E") OR (AS="I") OR (AS 
="Q") OR (A$="U") THENPRINT N's 

740 PRINT" ":B#" AND A": 

760 A$=LEFTS (BS, 1) 

780 IF (AS="A") OR (AS="E") OR (AS="I") OR (AS 
="O") OR (AS="U") THENPRINTUN"s 

800 PRINT" "sh#: INPUTQ#: IFRIGHTS (Q%,1)< 
+" 2" THENOS=Og+ 17 

820 PRINT"WHAT WOULD BE THE CORRECT ANS 
WER FOR A"; 

840 IF (AS="4") OR (AS="E") OR (AS=" I") OR (AS 
="Q") OR (Ag="U") THENPRINT'N"S 

8460 PRINT" "sN#s: INPUTTS 

880 DISK GET, C:INPUTH4, T1%, T2%, TSS 

900 DISK GET, L:AS=T1ise", "+T2$4", "+TSH9P 
RINT#S, AS 

920 DISK PUT:L=L+1 

940 DISK GET,.C 

960 AS=STRH(L-1) +", "4STRH(L) +", "+08 

980 IFLEFTS(TS, 1) ="N"THENAS=STRS(L) +", 
+OTRS(L-1) +", "+08 
1000 PRINT#64, AS 
1020 DISK PUT 

i040 DISK GET.L 
1060 Age", "ange, 
1080 DISK PUT:L=L+1 
1100 DISK GET,O: INPUTH6,AS,L# 
1120 A=VAL (AS) 

1140 A=A+1:AS=STRH (A) +", "+STRS(L) 
1140 PRINT#6, AS 

11980 DISK PUT 

1200 C=1:R=1:GOTO140 


WHAT W 


"se PRINTHS, AS 


CORRECTION by J. Kaposztas 

There was a slight typographical 
error in David Kubhn’s Reverse Video Mod 
in the Feb. issue of the Journal. The 
IC used as an XOR gate should be a 
74LS86 not 74L876 as mentioned in the 
diagram. 

Also the place to cut the foil trace 
ig ontop of the 600 board about a 


quarter inch from pin #9 of U42 (the 
74.8165) between the two plated through 
holes. 

FOR SALE: 


MITTENDORF HIGH RES BOARD, FULLY 
POPULATED. INCLUDES ALL JUMPERS AND 
DOCUMENTATION. MANY EXTRAS. 90.00 
CALL JERRY MELE (216) 225-0157 


AARDVARK WANTS TO KNOW YOU AND YOUR COMPUTER! 


1. LOCATION: CLOSET MAJOR CITY STATE aif 


ae AGE PROFESSION 


oe LENGTH OF TIME WITH COMPUTERS 


4, LENGTH OF TIME WITH OSI: COMPUTERS 


we WHICH OSI COMPUTER MEMORY SIZE 


6& DO YOU USE ANY OTHER TYFE OF COMPUTER AS WELL 


7. DO YOU USE ANY OTHER LANGUAGE RESIDES BASIC 


8. ANY HARDWARE ACCESSORIES FOR THE OSI, LIST BY MFG AND TYPE, AS WELL 
AS WHAT MEMORY ADDRESS THESE ACCESSORIES ARE LOCATED AT IF KNOWN 
(PRINTER, CASSETTE, DISC,MODEM, MEMORY EXPANSION BD,ROMS, ETC. ) 


a nena 
9. WHAT TYPE OF SOFTWARE DO YOU OWN, GIVE QUANTITIES 


DEVELOPMENT TOS era 


ARCADE GAMES 


a a a SS 


GAMES THAT TEACH 


ee cn nee LL 


WORD PROCESSING , 


S02) na eee eee ee ee ae ee ee ee Ane meee, RES eee RR Ser ere 


29. <h ean LE eeee ene EL CF Eee ee aR ee ee eer ee Ree 


10. WHAT SOFTWARE WOULD YOU LIKE AARDVARK TO OFFER 


seeeececee Dc ceo cnc ee 


11. WHAT HARDWARE WOULD YOU LIKE AARDVARK TO OFFER 


a crn A LL 


i2. HAVE YOU EVER WRITTEN AN ARTICLE OR LETTER TO A COMPUTER 
MAGAZINE, OR TO AARDVARK’? 

2 $s $$ — nm ax 
13. HOW LONG HAVE YOU HAD TO WAIT FOR A REPLY’ 


RTT ea ee EAT CN rae eR EN et Ee Ee NE ERE ONS Se OEE Tne ETT SEE Me eee Ee cent 
14. WHAT AARDVARK SOFTWARE DO YOU OWN, AND WHAT HAS BEEN YOUR OPINION 
ON THE QUALITY OF HOW IT WAS WRITTEN OR MANUFACTURED. 


a nea 


iS. PLEASE RATE THE SERVICE YOU HAVE BREEN RECEIVING FROM AARDVARK ON 
YOUR OWN SCALE. (EXPLAIN IF NECESSARY) 


en ese a nr RE eee 


nT 


i4. ANY ADDITIONAL COMMENTS WOULD BE GREATLY APPRECIATED. 
soccer minnie sine a a Re a EE SE LE EOE CN IIE A 


LL 
eee 


** please RETURN ™ 


a7 


AARDVARK 


TECHNICAL SERVICES 


2352 S. COMMERCE 
WALLED LAKE, MI. 


48088 
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